home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / dialog / tdsrc / wndtd.frm (.txt) < prev   
Encoding:
Visual Basic Form  |  1994-11-07  |  4.3 KB  |  132 lines
  1. VERSION 2.00
  2. Begin Form wndTD 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "Dialog"
  6.    ClientHeight    =   3990
  7.    ClientLeft      =   1095
  8.    ClientTop       =   1485
  9.    ClientWidth     =   5235
  10.    Height          =   4395
  11.    Left            =   1035
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   3990
  16.    ScaleWidth      =   5235
  17.    Top             =   1140
  18.    Width           =   5355
  19.    Begin PictureBox Picture1 
  20.       BackColor       =   &H00C0C0C0&
  21.       FontBold        =   0   'False
  22.       FontItalic      =   0   'False
  23.       FontName        =   "MS Sans Serif"
  24.       FontSize        =   8.25
  25.       FontStrikethru  =   0   'False
  26.       FontUnderline   =   0   'False
  27.       Height          =   3735
  28.       Index           =   1
  29.       Left            =   60
  30.       ScaleHeight     =   3705
  31.       ScaleWidth      =   5085
  32.       TabIndex        =   4
  33.       Tag             =   "Dialog5"
  34.       Top             =   180
  35.       Width           =   5115
  36.    End
  37.    Begin PictureBox Picture1 
  38.       BackColor       =   &H00C0C0C0&
  39.       FontBold        =   0   'False
  40.       FontItalic      =   0   'False
  41.       FontName        =   "MS Sans Serif"
  42.       FontSize        =   8.25
  43.       FontStrikethru  =   0   'False
  44.       FontUnderline   =   0   'False
  45.       Height          =   3735
  46.       Index           =   4
  47.       Left            =   60
  48.       ScaleHeight     =   3705
  49.       ScaleWidth      =   5085
  50.       TabIndex        =   3
  51.       Tag             =   "Dialog4"
  52.       Top             =   180
  53.       Width           =   5115
  54.    End
  55.    Begin PictureBox Picture1 
  56.       BackColor       =   &H00C0C0C0&
  57.       FontBold        =   0   'False
  58.       FontItalic      =   0   'False
  59.       FontName        =   "MS Sans Serif"
  60.       FontSize        =   8.25
  61.       FontStrikethru  =   0   'False
  62.       FontUnderline   =   0   'False
  63.       Height          =   3735
  64.       Index           =   0
  65.       Left            =   60
  66.       ScaleHeight     =   3705
  67.       ScaleWidth      =   5085
  68.       TabIndex        =   0
  69.       Tag             =   "Dialog1"
  70.       Top             =   180
  71.       Width           =   5115
  72.    End
  73.    Begin PictureBox Picture1 
  74.       BackColor       =   &H00C0C0C0&
  75.       FontBold        =   0   'False
  76.       FontItalic      =   0   'False
  77.       FontName        =   "MS Sans Serif"
  78.       FontSize        =   8.25
  79.       FontStrikethru  =   0   'False
  80.       FontUnderline   =   0   'False
  81.       Height          =   3735
  82.       Index           =   2
  83.       Left            =   60
  84.       ScaleHeight     =   3705
  85.       ScaleWidth      =   5085
  86.       TabIndex        =   1
  87.       Tag             =   "Dialog2"
  88.       Top             =   180
  89.       Width           =   5115
  90.    End
  91.    Begin PictureBox Picture1 
  92.       BackColor       =   &H00C0C0C0&
  93.       FontBold        =   0   'False
  94.       FontItalic      =   0   'False
  95.       FontName        =   "MS Sans Serif"
  96.       FontSize        =   8.25
  97.       FontStrikethru  =   0   'False
  98.       FontUnderline   =   0   'False
  99.       Height          =   3735
  100.       Index           =   3
  101.       Left            =   60
  102.       ScaleHeight     =   3705
  103.       ScaleWidth      =   5085
  104.       TabIndex        =   2
  105.       Tag             =   "Dialog3"
  106.       Top             =   180
  107.       Width           =   5115
  108.    End
  109. Option Explicit
  110. Sub Form_Activate ()
  111. Dim oSM As Integer, oDW As Integer
  112.     If Me.BorderStyle = 3 Or Me.BorderStyle = 1 Or Me.BorderStyle = 0 Then
  113.         oSM = Me.ScaleMode
  114.         oDW = Me.DrawWidth
  115.         Me.ScaleMode = 3
  116.         Me.DrawWidth = 1
  117.         If Not Me.AutoRedraw Then Me.AutoRedraw = True
  118.         Me.Line (0, 0)-(0, Me.ScaleHeight), RGB(255, 255, 255)
  119.         Me.Line (0, 0)-(Me.ScaleWidth, 0), RGB(255, 255, 255)
  120.         Me.Line (0, Me.ScaleHeight - 1)-(Me.ScaleWidth, Me.ScaleHeight - 1), RGB(128, 128, 128)
  121.         Me.Line (Me.ScaleWidth - 1, 0)-(Me.ScaleWidth - 1, Me.ScaleHeight + 1), RGB(128, 128, 128)
  122.         Me.ScaleMode = oSM
  123.         Me.DrawWidth = oDW
  124.     End If
  125. End Sub
  126. Sub Form_Load ()
  127.     TabsPaint Me
  128. End Sub
  129. Sub Picture1_MouseDown (Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)
  130.     TabsClick Picture1(Index), x, y
  131. End Sub
  132.